home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2510.ZIP / TRSOURCE.EXE / _TR_INFI.ASM < prev    next >
Assembly Source File  |  1990-10-22  |  851b  |  33 lines
  1. ; _TR_INFI.ASM
  2. ;
  3. ; by Leonard Zerman
  4. ;
  5. ; Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  6. ;
  7.  
  8.          PUBLIC __TR_INFINITY
  9.  
  10. DGROUP   GROUP   _DATA
  11. ;********************************************
  12. _DATA  SEGMENT WORD PUBLIC 'DATA'
  13.  
  14. BIGNUM   DQ      7FEFFFFFFFFFFFFFH     ; 8087 bit pattern for infinity
  15.  
  16. _DATA  ENDS
  17. ;********************************************
  18.  
  19. ;********************************************
  20. _TR_INF_TEXT SEGMENT BYTE PUBLIC 'CODE'
  21.          ASSUME   CS:_TR_INF_TEXT, DS:_DATA
  22. ;--------------------------------------------
  23. __TR_INFINITY PROC    FAR
  24.          MOV     AX,OFFSET _DATA:BIGNUM
  25.          MOV     DX,SEG    _DATA:BIGNUM
  26.          RET
  27. __TR_INFINITY ENDP
  28. ;--------------------------------------------
  29. _TR_INF_TEXT    ENDS
  30. ;**********************************************
  31.          END
  32.  
  33.